<%
'--------------------------------------------------------------------------------------------
'Questa funzione serve a controllare che i file singoli non siano
'richiamati dal browser ma solo da OpenAsp, nel caso in cui il browser tenta di aprire tali file
'l'utente viene subito rimandato alla homepage del sito
'splitto la stringa SQL per recuperare la pagina che si cerca di aprire
i = split(request.ServerVariables("HTTP_URL"), "/")
'confronto il nome del modulo con la funzione Ubound che mi restituisce il massimo
'valore dell'array, quindi il nome della pagina richiesta dall'utente, se coincidono
'rimando alla index
if strComp("CryptoAllPass.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'--------------------------------------------------------------------------------------------
%>
<div id="position">
      &raquo; <a href="admin.asp" class="testo">Control Center</a> &raquo; <a href="admin.asp?op=admin_gestione_users" class="testo"><%=traducisys("ling_occ_95")%></a> &raquo;  <%=traducisys("ling_occ_130")%>
</div>
<div id="page">
<%
call onlySADM()
' Modulo scritto da Bertini Carlo (carlitoway@email.it) per OpenASP
' Bertini Carlo AiS staff 
' siete pregati di lasciare il nome dell'autore. Grazie
response.Write("<ul>")
IF SPC = "MD5" then
strSQL = "SELECT * FROM TB_USERS WHERE CryptoPass IS NULL"
 Set userRS = objConn.Execute(strSQL)
 Do while NOT userRS.EOF  
    
    strPassword=userRS("Upass")
    'Encrypt the password
    strEncryptedPassword = MD5(strPassword)	
	
    objConn.Execute("UPDATE TB_USERS SET Upass ='" & strEncryptedPassword & "', CryptoPass = 'MD5'  WHERE Uid =" & userRS("Uid"))
    response.Write("<li>" & userRS.Fields("Uname") & " :  Crypt OK !! </li>")

   userRS.MoveNext
 loop
Set userRS = Nothing
Set objConn = Nothing
end if 
call autoReturn("admin.asp", 2)		
%>
</div>